home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs12.d81 / nw126-3.sda / NET SETUP 1.26 (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  10KB  |  274 lines
  1. 1 REMOPEN1,8,15,"I0":PRINT#1,"S0:NET SET*":CLOSE1:SAVE"0:NET SETUP 1.26",8
  2. 3 REM"::::::::::::::::::::::::::::::
  3. 4 [143]"::        (null)VAL(null)(null)(null)(null)(null) 64        ::
  4. 5 REM":: [195][207][208][217][210][201][199][200][212] 1987,1988,1991 ::
  5. 6 [143]"::       PEEK(null) (null)ATN(null) (null)VAL(null)RIGHT$(null)       ::
  6. 7 REM ::::::::::::::::::::::::::::::
  7. 10 IFPEEK(1)=55ANDPEEK(52000)<>120THENLOAD"PRSCRN52000",8,1
  8. 20 IFPEEK(1)=55ANDPEEK(788)=49THENSYS52000:REM CTRL/F1 DUMP
  9. 40 GOTO60
  10. 50 INPUT#15,EN,EN$,T,S:RETURN
  11. 60 PRINT"[147]";:POKE53280,0:POKE53281,0:POKE650,128
  12. 80 NU$=CHR$(0):CR$=CHR$(13):C2$=CR$+CR$
  13. 90 IFPEEK(1)=55THENPRINT"[154][211]CREEN TO PRINTER DUMP ACTIVE! [195][212][210][204]+[198]1[146]
  14. 100 [133]"SQRBBS.PARMS DISK IN DRIVE #8 (Y/N)  YCMDCMDCMD";A$:[139]A$[179][177]"Y"[167]100
  15. 110 [160]15:[159]15,8,15,"I0":[160]3:[159]3,0
  16. 120 [159]8,8,8,"0:SQRBBS.PARM*":[141]50:[139]EN[167][160]8:[137]100
  17. 130 [153]C2$"(null)AIT..";:[132]8,A,A,A,MP:[143] GET MAX PASSWORDS FOR BILLING
  18. 140 [132]8,A$:[139][197](A$)[179][177]107[167]140:[143] SKIP TILL DRIVE ASSIGNMENTS
  19. 150 [134]D(1),H$(1):[132]8,A,A$,D(0),H$(0)
  20. 155 [129]I[178]1[164]16:[132]8,A$:[130]
  21. 160 [132]8,A:[134]DN%(A),DN$(A),DH$(A):DN%(.)[178]A
  22. 165 [129]I[178]1[164]A:[132]8,DN%(I),DN$(I),DH$(I):[130]
  23. 170 [132]8,A$:SR[178]ST:[139][200](A$,1)[178]"#"[167]CC[178][197](B$):[137]185:[143] # OF MSG CATS
  24. 180 [139]SR[178]0[167]B$[178]A$:[137]170
  25. 185 [134]CA$(CC):[129]I[178]1[164]CC:[132]8,A,CA$(I):[130]
  26. 190 [160]8:[141]481:[159]8,DV,8,DR$[170]"SQRNTWRK.PARMS"
  27. 200 [141]50:[139]EN[167][160]8
  28. 210 [134]NN$(99,3),NN(99,5):[139]EN[167]340
  29. 220 [132]8,NN%,AR%,OP%,CL%,NN$,N%(0):[139]AR%[179]0[167]AR%[178][171]AR%:NN(.,.)[178]1:[143]
  30. 230 [139]N%(0)[179]0[167]BN%[178]1:N%(0)[178][182](N%(0))
  31. 240 A[178]0:RG%[178]5:SG%[178]5:[129]I[178]1[164]NN%:[132]8,NN(I,0)
  32. 245 [132]8,B:[139]B[177]299[167]NN(I,5)[178]B:[137]250
  33. 247 NN(I,1)[178]B:[132]8,NN(I,2):[132]8,NN(I,5)
  34. 250 [129]X[178]2[164]3:[132]8,NN$(I,X):[130]:[153]".";:[130]:[132]8,D(1),H$(1)
  35. 252 [129]I[178]1[164]NN%:[139][200](NN$(I,2),1)[178]"+"[167]NN$(I,2)[178][202](NN$(I,2),2)
  36. 255 [139][200](NN$(I,3),1)[178]"+"[167]NN$(I,3)[178][202](NN$(I,3),2)
  37. 257 [130]
  38. 260 [160]8
  39. 290 [141]482:[159]8,DV,8,DR$[170]"SQRNODE LIST":[141]50
  40. 300 [139]EN[178]0[167]310
  41. 305 [160]8:[153]CR$CR$"DEF    SQR(null)(null)STR$VAL (null)RIGHT$(null)(null) ASCRIGHT$(null)VAL (null)(null)(null) ASC(null)(null)(null)STR$! "
  42. 306 [153]"(null)OU NEED TO DELETE YOUR SQRNTWRK.PARMS,
  43. 307 PRINT"AND RE-RUN THIS PROGRAM.
  44. 309 [160]15:[128]
  45. 310 [129]I[178]1[164]NN%:[132]8,A$,NN$(I,1):NN$(I,0)[178][200](A$,25)
  46. 320 NN(I,3)[178][197]([202](A$,27,4)):NN(I,4)[178][197]([202](A$,33,4))
  47. 330 [153]".";:[130]:[160]8:[153]:[137]370
  48. 340 OP%[178]0:CL%[178]6:D(1)[178]8:H$(1)[178]"I0":AR%[178]0
  49. 350 N%(0)[178]15
  50. 360 [143]BASIC PARAMETERS
  51. 370 [153]"(null)UMBER OF NODES (1-99)"[163]32)NN%
  52. 380 [153]"ON"[163]33);:[132]3,NN%
  53. 390 [139]NN%[178]0[167]1670
  54. 400 [153]C2$"(null)UBLIC MESSAGES CATEGORY (ATN-"[170][199](CC[170]192)[170]")"
  55. 410 [153]"OR ENTER 0 FOR MANUAL RELEASE OR":[153]"? FOR LISTING"[163]34);
  56. 415 [139](AR%[175]255)[178]0[167][153]"0":[137]425
  57. 420 [153][199]((AR%[175]255)[170]192)
  58. 425 AR%[178]AR%[171](AR%[175]255)
  59. 430 [153]"ON"[163]34);:[132]3,A$:[139]A$[178]"?"[167][141]490:[153]:[137]400
  60. 440 [139]A$[177]"@"[175]A$[179][199](CC[170]64)[167]AR%[178]AR%[170][198](A$)[171]64:[137]510
  61. 442 [139]A$[177]"TAN"[175]A$[179][199](CC[170]192)[167]AR%[178]AR%[170][198](A$)[171]192:[137]510
  62. 444 [139]A$[179][177]"0"[167][153]"ONONONON";:[137]400
  63. 450 [137]510
  64. 460 DV[178]D(H):[139]DV[178]DX[175]H$(H)[178]H$[167]DV[178][182](DV):[142]
  65. 462 DX[178]DV:H$[178]H$(H):[160]15
  66. 465 DR$[178]"0:":[139]DV[179]0[167]DR$[178]"1:":DV[178][182](DV)
  67. 470 IC[178][171]([200](H$,3)[178]"HM4"):Z[178][195](H$):[129]ZZ[178]1[164]Z:[139][202](H$,ZZ,1)[178]"!"[167]Z[178]ZZ[171]1
  68. 472 [130]:[159]15,DV,15,[200](H$,Z):[139]Z[179][195](H$)[167][152]15,[202](H$,Z[170]2)
  69. 475 [137]50
  70. 481 H[178]0:[137]460: [158]TEMS
  71. 482 H[178]1:[137]460: NETW[176]K
  72. 490 [153]C2$:[129]I[178]1[164]CC:[153][202]("OPENCLRSYSLISTCONTPRINTPRINT#POKEDEFVERIFYFOROPENCLRSYSLISTCONTPRINTPRINT#",I,1);
  73. 495 [153]" "[170][199](I[170]192)[170]" WAIT "[170]CA$(I):[130]:[153]"";:[142]
  74. 510 [151]198,0:[153]C2$"DEFVALNTER LEFT$(null)(null)(null)(null) ONLY IN MILITARY TIME!":[137]560
  75. 520 [153]CR$"CONT":[139]A[178]0[167][153]"12 (null)IDNIGHT":[142]
  76. 530 [139]A[178]12[167][153]"12 (null)OON":[142]
  77. 540 [139]A[177]12[167]A[178]A[171]12:[153][202]([196](A),2)[170]" PM":[142]
  78. 550 [153][202]([196](A),2)[170]" AM":[142]
  79. 560 [153]CR$"(null)PEN (null)INDOW LEFT$OUR"[163]32);OP%
  80. 570 [153]"ON"[163]33);:[132]3,OP%
  81. 580 [139]OP%[179]0[176]OP%[177]23[167][153]:[137]570
  82. 590 A[178]OP%:[141]520
  83. 600 [153]CR$"LENLOSE (null)INDOW LEFT$OUR"[163]32);CL%
  84. 610 [153]"ON"[163]33);:[132]3,CL%
  85. 620 [139]CL%[179]0[176]CL%[177]23[167][153]:[137]610
  86. 630 [139]CL%[179]OP%[167][153]:[153]"DEF(null)OU (null)(null)(null)(null) CLOSE LATER THEN YOU OPEN!":[137]510
  87. 640 A[178]CL%:[141]520
  88. 650 [153]CR$"(null)OUR PEEKPEEK(null) NAME >";NN$:[153]"ON"[163]15);:[132]3,NN$
  89. 660 NN$[178][200](NN$,28)
  90. 670 [153]C2$"STR$AYS REQUEST MEMBER LIST (1-60)  ";N%(0):[153]"ON"[163]34);
  91. 680 [132]3,N%(0)
  92. 690 [153]C2$"STR$OES YOUR MODEM SUPPORT THE CONTPEEK(null)(null)(null)
  93. 700 PRINT"AND [154][206][207] [196][201][193][204][212][207][206][197] RESPONSE SET?"TAB(37)MID$("NY",BN%+1,1)
  94. 710 PRINT"[145]"TAB(37);:INPUT#3,A$:IFA$="Y"THENN%(0)=N%(0)*-1
  95. 720 :
  96. 730 PRINTC2$TAB(24)"[196]EV, [196]RV, [201]NIT
  97. 740 [153]CR$"(null)ETWORK STR$RIVE (8-15,0-1)"[163]24)[182](D(1));
  98. 750 [153][163]28)","([171](D(1)[179]0))", "H$(1)
  99. 820 [153]"ON"[163]25);:[132]3,A:[153]:[153]"ON"[163]30);
  100. 830 [132]3,B:[153]:[153]"ON"[163]34);:[132]3,H$(1):[153]C2$
  101. 840 D(1)[178]A:[139]B[179][177]0[167]D(1)[178]D(1)[172][171]1
  102. 850 [153]C2$"(null)/STR$ DIRECTORY TO PUT RECIEVED FILES ON:"
  103. 855 [153]"(ATN-"[170][199](DN%(.)[170]192)[170]", 0=NETWORK DRIVE, ?=LISTING)"[163]35);
  104. 860 [139]AR%[179]256[167][153]"0":[137]870
  105. 865 [153][199]((AR%[171](AR%[175]255))[173]256[170]192)
  106. 870 [153]"ON"[163]35);:[132]3,A$:[139]A$[178]"?"[167][141]2900:[137]850
  107. 875 [139]A$[177]"@"[175]A$[179][178][199](DN%(.)[170]64)[167]A[178][198](A$)[171]64:[137]900
  108. 880 [139]A$[177]"TAN"[175]A$[179][178][199](DN%(.)[170]192)[167]A[178][198](A$)[171]192:[137]900
  109. 885 [139]A$[178]"0"[167]A[178]0:[137]900
  110. 890 [153]"ONONON";:[137]850
  111. 900 B[178]AR%[175]255:AR%[178]B[170]A[172]256
  112. 910 [153]C2$"ATNUTO-RELEASE FILES RECIEVED  "[202]("(null)(null)",NN(.,.)[170]1,1)"CMDCMDCMD";:[143]
  113. 920 [133]A$:[153]CR$:NN(.,.)[178].:[139]A$[178]"(null)"[176]A$[178]"N"[167]NN(.,.)[178]1:[143]
  114. 950 :
  115. 952 X[178]0:[153]CR$"(null)ELECT (1-"[170][202]([196](NN%),2)[170]") ["[170][202]([196](LA),2)[170]"] ";
  116. 953 [153]"(?=(null)IST) OR <LEN(null)>";
  117. 955 [133]X$:X[178][197](X$):[139]X$[178]"?"[167][141]3000:[137]952
  118. 960 [139]X[178]0[167]1440
  119. 970 [139]X[179]1[176]X[177]NN%[167]950
  120. 980 LA[178]X:[153]"LOADSYS(null)ODE #WAIT"X"   CONT(null)ODE STATUS:WAIT ";
  121. 990 X$[178]"(null)(null)VAL(null)":[139][200](NN$(X,1),1)[178]""[167]X$[178]"DEFATNLENLENVAL(null)(null)"
  122. 1000 [139][200](NN$(X,1),1)[178]"    "[167]X$[178]"DEFLENATN(null)(null)RIGHT$VAL(null)"
  123. 1005 [139][200](NN$(X,1),1)[178]""[167]X$[178]"CLR(null)VAL(null) (null)(null)LEN(null)
  124. 1010 IFLEFT$(NN$(X,1),1)=""THENX$="[150][204][207][195][203][197][196]"
  125. 1020 PRINTX$:Y$=NN$(X,2)
  126. 1030 REMINDIVIDUAL PARAMETERS
  127. 1040 PRINTCR$"[206]ODE [206]AME (25 CHARS MAX)[221]"CR$">[154][146] "NN$(X,0)
  128. 1050 NN$(X,0)=(LEFT$(NN$(X,0),25))
  129. 1060 PRINT"[194][194][211] [201][196] [206]UMBER (ENTER 1 FOR NEW)[146]-->"TAB(34)NN(X,0)
  130. 1070 PRINT"[195]ITY/[211]TATE"CR$">[154][146] "NN$(X,1)
  131. 1080 PRINT"[208]HONE (^=PAUSE)"CR$">[154][146] "NN$(X,2)
  132. 1090 PRINT"[208]ASSWORD (IF NEW ENTER DESIRED PSWD)"CR$">[154][146] "NN$(X,3)
  133. 1100 PRINT"[194]AUD [210]ATE (300/1200/2400)[146]---->"TAB(33);:IFNN(X,5)=0THENNN(X,5)=1200
  134. 1110 PRINTNN(X,5)
  135. 1120 PRINT"[195]HARGE FOR FIRST 1000 BYTES."CR$">[154][146]";
  136. 1130 C=NN(X,3):GOSUB1790:PRINTA$
  137. 1140 PRINT"[197]ACH ADDITIONAL 100 BYTES."CR$">[154][146]";
  138. 1150 C=NN(X,4):GOSUB1790:PRINTA$
  139. 1220 PRINT""TAB(2);:INPUT#3,NN$(X,0):PRINT
  140. 1240 PRINTTAB(35);:INPUT#3,NN(X,0):PRINTCR$
  141. 1250 C$="":IFLEFT$(NN$(X,1),1)=""ORLEFT$(NN$(X,1),1)=""THENC$=LEFT$(NN$(X,1),1)
  142. 1260 PRINTTAB(2);:INPUT#3,A$:PRINTCR$
  143. 1270 A=0:FORI=1TOLEN(A$):IFMID$(A$,I,1)="/"THENA=1
  144. 1280 NEXT:IFATHENNN$(X,1)=C$+A$:GOTO1300
  145. 1290 PRINT"[145][145]";:GOTO1260
  146. 1300 PRINTTAB(2);:INPUT#3,NN$(X,2):PRINTCR$
  147. 1310 PRINTTAB(2);:INPUT#3,A$:PRINT
  148. 1320 FORI=1TOLEN(A$):IFASC(MID$(A$,I,1))<65ORASC(MID$(A$,I,1))>90THEN1350
  149. 1330 IFI=1THENA$=CHR$(ASC(LEFT$(A$,1))+128)+MID$(A$,2):GOTO1350
  150. 1340 A$=LEFT$(A$,I-1)+CHR$(ASC(MID$(A$,I,1))+128)+MID$(A$,I+1)
  151. 1350 IFMID$(A$,I,1)="[186]"THENA$=LEFT$(A$,I-1)+"[216]"+MID$(A$,I+1)
  152. 1355 NEXT:NN$(X,3)=A$
  153. 1360 PRINTTAB(34);:INPUT#3,NN(X,5):PRINTCR$
  154. 1370 IFNN(X,5)<>300ANDNN(X,5)<>1200ANDNN(X,5)<>2400THENPRINT"[145][145]";:GOTO1360
  155. 1380 PRINTTAB(2);:INPUT#3,NN(X,3):PRINTCR$
  156. 1390 PRINTTAB(2);:INPUT#3,NN(X,4):PRINTCR$
  157. 1420 PRINTTAB(10)"[195]ORRECT? ";:INPUT#3,A$:IFA$<>"Y"THENPRINT"[154]";:GOTO1220
  158. 1421 IFY$=NN$(X,2)ANDNN(X,0)<>1THEN950
  159. 1422 IFY$<>NN$(X,2)THENPRINTCR$"[193]RE YOU REPLACING THIS NODE";:INPUTA$:GOTO1425
  160. 1423 IFNN(X,0)=1THENGOSUB2800:GOTO950
  161. 1424 GOTO950
  162. 1425 IFA$<>"Y"THEN1423
  163. 1426 GOSUB2200:GOTO1423
  164. 1430 GOTO950
  165. 1440 PRINTCR$"[193]RE YOU DONE EDITING (Y/N)";:INPUTA$:IFA$<>"Y"THEN950
  166. 1460 GOTO1500
  167. 1500 GOSUB482:F$="[186]NODE BILLING":OPEN8,DV,8,DR$+F$:GOSUB50:CLOSE8
  168. 1510 IFEN=62THENGOSUB1690
  169. 1515 GOSUB2300
  170. 1520 REMSAVE NETWORK PARMS FILE
  171. 1530 F$="[186]NTWRK.PARMS":PRINTC2$"[211]AVING "F$"..."
  172. 1540 GOSUB481:PRINT#15,"S"+DR$+F$
  173. 1550 OPEN8,DV,8,+DR$+F$+",S,W":IFNN(.,.)THENAR%=-AR%:REM
  174. 1560 PRINT#8,NN%;CR$;AR%;CR$;OP%;CR$;CL%;CR$;NN$;CR$;N%(0)
  175. 1570 FORI=1TONN%:PRINT#8,NN(I,0):PRINT#8,NN(I,5)
  176. 1580 FORX=2TO3:PRINT#8,NN$(I,X):NEXT:NEXT:PRINT#8,D(1);CR$H$(1)
  177. 1590 CLOSE8
  178. 1600 REMCREATE NODE LIST
  179. 1610 GOSUB482:F$="[186]NODE LIST":PRINTC2$"[211]AVING "F$"...."
  180. 1620 PRINT#15,"S"+DR$+F$:OPEN8,DV,8,DR$+F$+",S,W"
  181. 1630 FORB=1TONN%:PRINT#8,NN$(B,0)SPC(25-LEN(NN$(B,0)));:C=NN(B,3):GOSUB1790
  182. 1640 PRINT#8,A$+" ";:C=NN(B,4):GOSUB1790:PRINT#8,A$
  183. 1650 PRINT#8,NN$(B,1)
  184. 1660 NEXT:CLOSE8
  185. 1670 CLOSE3:CLOSE15:PRINT:GOTO1870
  186. 1680 REMCREATE BILLING FILE
  187. 1690 PRINTC2$"[195]REATING BILLING FILE...";
  188. 1700 II=1:OPEN8,DV,8,DR$+"[186]NODE BILLING,L,"+CHR$(8):GOSUB50
  189. 1710 GOTO1740
  190. 1720 PRINT#15,"P"CHR$(RN-256*INT(RN/256))CHR$(RN/256)CHR$(II):RETURN
  191. 1730 PRINT#15,"P"NU$"":RETURN
  192. 1740 RN=MP+1:GOSUB1730:PRINT#8,RN:GOSUB1720:GOSUB50
  193. 1750 PRINT#8,"0":GOSUB50:IFEN=50THENPRINT#8,"END"
  194. 1760 FORRN=2TOMP+1:GOSUB1720:GOSUB50:PRINT#8,"0":GOSUB1720:GOSUB50:PRINT".";
  195. 1770 NEXT:CLOSE8:RETURN
  196. 1780 REM DOLLAR FORMATTER C-IN A$-OUT
  197. 1790 A$=STR$(C):A=0:FORI=1TOLEN(A$):IFMID$(A$,I,1)="E"THENA=I
  198. 1800 NEXT:IFA>0ANDMID$(A$,A+1,1)="-"THENA$="0.000":RETURN
  199. 1810 IFA>0ANDMID$(A$,A+1,1)="+"THENA$="0.000":RETURN:REM OVERFLOW
  200. 1820 IFMID$(A$,2,1)="."THENA$=LEFT$(A$,1)+"0"+MID$(A$,2)
  201. 1830 J=0:FORI=1TOLEN(A$):IFMID$(A$,I,1)="."THENJ=I
  202. 1840 NEXT:IFJ=0THENJ=LEN(A$)+1:A$=A$+"."
  203. 1850 A$=A$+"00":A$=LEFT$(A$,J+2):IFVAL(A$)=>0THENA$=MID$(A$,2)
  204. 1860 A$="$"+A$:RETURN
  205. 1870 IFPEEK(1)<>55THENEND
  206. 1875 SYS52029:PRINT:PRINT"[204]OAD:":PRINT"1. START 1700/NW"
  207. 1880 PRINT"2. RESTART 1700/NW":PRINT"3. START 1764
  208. 1890 [153]"4. REINIT 1764":[153]"5. BBS"
  209. 1900 [153]"6. END/QUIT/DONE/GETMEOUTAHERE
  210. 1910 PRINT:PRINT"[211]ELECT (1-6)";:INPUTA
  211. 1920 ONAGOTO1930,1940,1980,1990,2000:END
  212. 1930 PRINT"LOAD"+CHR$(34)+"START 1700/NW"+CHR$(34)+",8,1":GOTO1960
  213. 1940 PRINT"LOAD"+CHR$(34)+"RESTART 1700/NW"+CHR$(34)+",8,1":GOTO1960
  214. 1960 PRINT"[145][145][145][145]":POKE198,1:POKE631,13:NEW
  215. 1980 PRINT"LOAD"+CHR$(34)+"START 1764"+CHR$(34)+",8,1":GOTO1960
  216. 1990 PRINT"LOAD"+CHR$(34)+"REINIT*"+CHR$(34)+",8,1":GOTO1960
  217. 2000 PRINT"LOAD"+CHR$(34)+"BBS*"+CHR$(34)+",8,1":GOTO1960
  218. 2200 PRINTC2$"[150][193]LL FILES ASSOCIATED WITH THE [207][204][196] NODE"CR$"WILL BE [196][197][204][197][212][197][196], [207]K";
  219. 2210 POKE198,0:INPUTA$:IFA$<>"Y"THENRETURN
  220. 2220 GOSUB482:PRINT#15,"S"+DR$+"[186]+NODE"+STR$(X)
  221. 2230 PRINT#15,"S"+DR$+"[186]NODE"+STR$(X)+" USERS"
  222. 2240 PRINT#15,"S"+DR$+"[186]NODE VERIFY"+STR$(X):GOTO50
  223. 2300 GOSUB482
  224. 2310 OPEN8,DV,8,DR$+"[186]NODE ACCOUNTS":GOSUB50:CLOSE8:IFEN=0THENRETURN
  225. 2320 PRINTC2$"[195]REATING NODE ACCOUNT FILE..."
  226. 2330 OPEN8,DV,8,DR$+"[186]NODE ACCOUNTS,L,"+CHR$(52):GOSUB50
  227. 2340 II=1:RN=2:GOSUB1720
  228. 2350 PRINT#8,"[186][196][197][204][197][212][197][196][186]":REM NAME 25 MAX (POS-1)
  229. 2360 II=27:GOSUB1720:PRINT#8,"[208]ASSWORD":REM PASSWORD 9 MAX (POS-27)
  230. 2370 II=38:GOSUB1720:PRINT#8,"1":REMLEVEL 0=UNVALTD,1=VALTD (NO REP),1+?=NODE#
  231. 2375 REMLEVEL 2MAX 0=UNVAL,1=VAL (NO REPLY ALLOWED),+1=VAL (REPLY TO #X-1)
  232. 2380 II=43:GOSUB1720:PRINT#8,"[196]ATE":REM LAST DATE 8 MAX (POS-40)
  233. 2390 II=1:GOSUB1720:GOSUB1730:PRINT#8,2
  234. 2394 GOSUB50:CLOSE8:RETURN
  235. 2800 A$=LEFT$(NN$(X,1),1)
  236. 2802 IFA$=""ORA$=""ORA$="    "ORA$=""THENNN$(X,1)=MID$(NN$(X,1),2):GOTO2800
  237. 2805 NN$(X,1)=""+NN$(X,1)
  238. 2810 GOSUB482:F$="[186]+NODE"+STR$(X)
  239. 2815 OPEN8,DV,8,DR$+F$:GOSUB50:CLOSE8:IFEN=62THEN2840
  240. 2820 RETURN
  241. 2840 OPEN8,DV,8,DR$+"[186]NODE APP":GOSUB50:CLOSE8:IFEN=0THEN2870
  242. 2850 PRINTC2$"[217]OUR [186]NODE APP FILE IS MISSING OFF YOUR
  243. 2855 [153]"HOLDING DRIVE! LENREATE THIS NODE APP
  244. 2857 PRINT"FILE, AND RUN THIS SETUP AGAIN!":RETURN
  245. 2870 PRINT#15,"C"+DR$+F$+"="+DR$+"[186]NODE APP":RETURN
  246. 2900 PRINTC2$:PRINT" 0 [146] [206]ETWORK DRIVE"
  247. 2920 FORI=1TODN%(.):PRINTMID$("[159][156][158][129][149][150][151][152][153][154][155][159][156][158][129][149][150][151][152][153][154][155]",I,1);
  248. 2930 PRINT" "+CHR$(I+192)+" [146] "+DN$(I):NEXT:PRINT"";:RETURN
  249. 3000 PRINT"[147]"TAB(14)"[209][213][201][195][203] [204][201][211][212]"TAB(54)"[163][163][163][163][163][163][163][163][163][163]
  250. 3010 [129]I[178]1[164]NN%:[153]""[202]([196](I),2)[170]"] ";
  251. 3015 A$[178]NN$(I,0):[139]A$[178]""[167]A$[178]" * PEEK(null)ATN(null)(null) * WAIT"
  252. 3016 X$[178]"(null)(null)VAL(null)":[139][200](NN$(I,1),1)[178]""[167]X$[178]"DEFATNLENLENVAL(null)(null)"
  253. 3017 [139][200](NN$(I,1),1)[178]"    "[167]X$[178]"DEFLENATN(null)(null)RIGHT$VAL(null)"
  254. 3018 [139][200](NN$(I,1),1)[178]""[167]X$[178]"DEF(null)(null)LEN(null)VALSTR$"
  255. 3019 [139][200](NN$(I,1),1)[178]""[167]X$[178]"CLR(null)VAL(null) (null)(null)LEN(null)
  256. 3020 PRINTA$TAB(31)X$
  257. 3025 GETX$:IFX$<>""THENGOSUB3050
  258. 3030 NEXT
  259. 3040 PRINTCR$" [200][201][212] [193][206][217] [203][197][217] (*=[204]OCK/[213]NLOCK)
  260. 3050 [161]X$:[139]X$[178]""[167]3050
  261. 3055 [139]X$[178]"*"[175]I[178]NN%[170]1[167]3070
  262. 3060 [142]
  263. 3070 X[178]0:[153]CR$"VALNTER NODE NUMBER (OR (null)VAL(null)(null)(null)(null))";:[133]X:[139]X[178]0[167]3060
  264. 3080 X$[178]"(null)(null)VAL(null)":[139][200](NN$(X,1),1)[178]""[167]X$[178]"DEFATNLENLENVAL(null)(null)"
  265. 3090 [139][200](NN$(X,1),1)[178]"    "[167]X$[178]"DEFLENATN(null)(null)RIGHT$VAL(null)"
  266. 3100 [139][200](NN$(X,1),1)[178]""[167]X$[178]"DEF(null)(null)LEN(null)VALSTR$"
  267. 3110 [139][200](NN$(X,1),1)[178]""[167]X$[178]"CLR(null)VAL(null) (null)(null)LEN(null)
  268. 3120 PRINTCR$NN$(X,0)TAB(31)X$
  269. 3130 A$="":PRINTCR$"([204])OCK OR ([213])NLOCK";:INPUTA$:IFA$=""THEN3130
  270. 3140 X$=LEFT$(NN$(X,1),1)
  271. 3150 IFX$=""ORX$="    "ORX$=""ORX$=""THENNN$(X,1)=MID$(NN$(X,1),2):GOTO3140
  272. 3160 IFA$="U"THENPRINTCR$" [213][206][204][207][195][203][197][196] ":GOTO3070
  273. 3170 NN$(X,1)=""+NN$(X,1):PRINTCR$"[150] [204][207][195][203][197][196] ":GOTO3070
  274.